library(Rmpfr)
mynumber <- new("mpfr", .Data = list(new("mpfr1", prec = 50L, exp = c(1045L,
0L), sign = 1L, d = c(151748608L, -358118319L)), new("mpfr1",
prec = 50L, exp = c(20L, 0L), sign = 1L, d = c(-1114947584L,
-1905679017L)), new("mpfr1", prec = 50L, exp = c(-55L, -1L
), sign = 1L, d = c(-1449918464L, -906197701L)), new("mpfr1",
prec = 50L, exp = c(221L, 0L), sign = 1L, d = c(819707904L,
-1329031570L))))
mynumber
— это объект класса mpfr
с 4 числами в нем. Я хочу cbind
mynumber
со столбцом из 0, т.е.
> cbind(rep(0, 4), mynumber)
mynumber
[1,] 0 ?
[2,] 0 ?
[3,] 0 ?
[4,] 0 ?
Это дает мне ???? во втором столбце, поэтому я попытался сначала изменить mynumber
на класс numeric
mydata <- cbind(rep(0, 4), sapply(mynumber, asNumeric))
> mydata
[,1] [,2]
[1,] 0 Inf
[2,] 0 5.833223e+05
[3,] 0 2.189941e-17
[4,] 0 2.327185e+66
Однако, поскольку первое число в mynumber
действительно большое, использование asNumeric вместо этого изменило его на Inf
.
Изменить: моя конечная цель - запустить:
mydata <- cbind(rep(0, 4), sapply(mynumber, asNumeric))
> mydata/rowSums(mydata)
[,1] [,2]
[1,] 0 NaN
[2,] 0 1
[3,] 0 1
[4,] 0 1
и не распечатывать NaN.
mynumber
результат моего вызова функцииmpfr
изRmpfr
. Есть ли дополнительная информация о пакетах, которую я должен предоставить? - person Adrian   schedule 29.02.2020