SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/man/sparseVector-class.Rd
ViewVC logotype

Diff of /pkg/Matrix/man/sparseVector-class.Rd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3010, Mon Oct 6 16:59:57 2014 UTC revision 3011, Mon Oct 6 17:00:48 2014 UTC
# Line 84  Line 84 
84  \alias{mean,sparseVector-method}  \alias{mean,sparseVector-method}
85  \alias{rep,sparseVector-method}  \alias{rep,sparseVector-method}
86  \alias{show,sparseVector-method}  \alias{show,sparseVector-method}
87    \alias{t,sparseVector-method}
88  \alias{toeplitz}% only needed if(as.numeric(R.version$`svn rev`) < 60620)  \alias{toeplitz}% only needed if(as.numeric(R.version$`svn rev`) < 60620)
89  \alias{toeplitz,sparseVector-method}  \alias{toeplitz,sparseVector-method}
90  %  %
# Line 248  Line 249 
249            all(!lis), !any(lis), length(nn@i) == 0, !any(nn), all(!nn),            all(!lis), !any(lis), length(nn@i) == 0, !any(nn), all(!nn),
250            sum(lis) == 0, !prod(lis), range(lis) == c(0,0))            sum(lis) == 0, !prod(lis), range(lis) == c(0,0))
251    
252  x20 <- sparseVector(c(9,3:1), i=c(1:2,4,7), length=20)  ## create and use the t(.) method:
253    t(x20 <- sparseVector(c(9,3:1), i=c(1:2,4,7), length=20))
254  (T20 <- toeplitz(x20))  (T20 <- toeplitz(x20))
255  stopifnot(is(T20, "symmetricMatrix"), is(T20, "sparseMatrix"),  stopifnot(is(T20, "symmetricMatrix"), is(T20, "sparseMatrix"),
256            identical(unname(as.matrix(T20)),            identical(unname(as.matrix(T20)),

Legend:
Removed from v.3010  
changed lines
  Added in v.3011

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge