https://github.com/cran/kappalab
Revision d2fc5e4ce0f6c794342013b6dccb28fc6b39c9ba authored by Ivan Kojadinovic on 07 May 2005, 00:00:00 UTC, committed by Gabor Csardi on 07 May 2005, 00:00:00 UTC
0 parent
Raw File
Tip revision: d2fc5e4ce0f6c794342013b6dccb28fc6b39c9ba authored by Ivan Kojadinovic on 07 May 2005, 00:00:00 UTC
version 0.1-3
Tip revision: d2fc5e4
to.data.frame-methods.R
library(kappalab)

a <- Mobius.set.func(runif(16),4,4)
d <- to.data.frame(a)
write.table(d,"my.set.func.csv",sep="\t")
d2 <- read.delim("my.set.func.csv")
a2 <- Mobius.set.func(d2[[1]][3:18],4,4)
stopifnot(abs(a@data - a2@data) < 1e-6)



back to top