Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set.seed(1)
- m = array(runif(12) * 10, c(3, 4))
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "matrix"
- # > typeof(m)
- # [1] "double"
- # > dput(m)
- # structure(c(2.655086631421, 3.7212389963679, 5.72853363351896,
- # 9.08207789994776, 2.01681931037456, 8.98389684967697, 9.44675268605351,
- # 6.60797792486846, 6.2911404389888, 0.617862704675645, 2.05974574899301,
- # 1.76556752528995), .Dim = 3:4)
- m = as.integer(m)
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "integer"
- # > typeof(m)
- # [1] "integer"
- # > dput(m)
- # c(2L, 3L, 5L, 9L, 2L, 8L, 9L, 6L, 6L, 0L, 2L, 1L)
- #@ ------
- set.seed(1)
- m = array(runif(12) * 10, c(3, 4))
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "matrix"
- # > typeof(m)
- # [1] "double"
- # > dput(m)
- # structure(c(2.655086631421, 3.7212389963679, 5.72853363351896,
- # 9.08207789994776, 2.01681931037456, 8.98389684967697, 9.44675268605351,
- # 6.60797792486846, 6.2911404389888, 0.617862704675645, 2.05974574899301,
- # 1.76556752528995), .Dim = 3:4)
- attributes(m)
- # > attributes(m)
- # $`dim`
- # [1] 3 4
- tmp = attributes(m)$`dim`
- dput(tmp)
- # > dput(tmp)
- # 3:4
- m = as.integer(m)
- attributes(m)$`dim` = tmp
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "matrix"
- # > typeof(m)
- # [1] "integer"
- # > dput(m)
- # structure(c(2L, 3L, 5L, 9L, 2L, 8L, 9L, 6L, 6L, 0L, 2L, 1L), .Dim = 3:4)
- #@ ------
- set.seed(1)
- m = array(runif(12) * 10, c(3, 4))
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "matrix"
- # > typeof(m)
- # [1] "double"
- # > dput(m)
- # structure(c(2.655086631421, 3.7212389963679, 5.72853363351896,
- # 9.08207789994776, 2.01681931037456, 8.98389684967697, 9.44675268605351,
- # 6.60797792486846, 6.2911404389888, 0.617862704675645, 2.05974574899301,
- # 1.76556752528995), .Dim = 3:4)
- as.integer.matrix = function(input) {
- if (class(input) != "matrix") {
- stop("error1")
- } else {
- output = as.integer(input)
- attributes(output) = attributes(input)
- }
- output
- }
- m = as.integer.matrix(m)
- class(m)
- typeof(m)
- dput(m)
- # > class(m)
- # [1] "matrix"
- # > typeof(m)
- # [1] "integer"
- # > dput(m)
- # structure(c(2L, 3L, 5L, 9L, 2L, 8L, 9L, 6L, 6L, 0L, 2L, 1L), .Dim = 3:4)
Add Comment
Please, Sign In to add comment