forked from JuliaInterop/RCall.jl
/
runtests.jl
43 lines (33 loc) · 1.01 KB
/
runtests.jl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
using RCall
using Base.Test,DataArrays,DataFrames
lsv = reval("ls()")
@test length(lsv) == 0
@test isa(lsv, RCall.StrSxp)
lsd = reval("ls(\"package:datasets\")")
@test isa(lsv, RCall.StrSxp)
@test length(lsd) > 50
@test rcopy(lsd[2]) == "airmiles"
v110 = DataArray(reval("x <- 1:10"))
@test isa(v110,DataVector)
@test eltype(v110) == Cint
attenu = DataFrame(:attenu)
@test isa(attenu,DataFrame)
@test size(attenu) == (182,5)
dist = attenu[:dist]
@test isa(dist,DataArray{Float64})
psexp = sexp("p")
@test isa(psexp,RCall.StrSxp)
@test length(psexp) == 1
@test rcopy(psexp[1]) == "p"
pqsexp = sexp(["p","q"])
@test isa(pqsexp,RCall.StrSxp)
@test length(pqsexp) == 2
@test rcopy(pqsexp[1]) == "p"
langsexp = RCall.lang(:solve, sexp([1 2; 0 4]))
@test length(langsexp) == 2
@test rcopy(reval(langsexp)) == [1 -0.5; 0 0.25]
globalEnv[:x] = sexp([1,2,3])
globalEnv[:y] = sexp([4,5,6])
@test rcopy(rcall(symbol("+"),:x,:y)) == [5,7,9]
@rimport MASS as mass
@test round(rcopy(rcall(mass.ginv, sexp([1 2; 0 4]))),5) == [1 -0.5; 0 0.25]