# SCM Repository

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

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

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