%pylab inline

# RとPandasのデータフレームを相互に変換する方法
# Sageでは、numpyとpandasをインポート
import pandas as pd
import numpy as np

import rpy2.robjects as robjects
ro = robjects.r

# 例としてR Graphic Cookbookのデータを使用
#ro("install.packages('gcookbook')")
ro('library(gcookbook)')

# Rのデータフレームをpandasのデータフレームに変換する
import pandas.rpy.common as com

# heightweight = com.load_data('heightweight') 
#     Rのデータフレームをpandasのデータフレームに変換する
# r_dataframe = com.convert_to_r_dataframe(df)
#     pandasのデータフレームをRに渡す

from sage.all import *

# print RDf2PandaDf('heightweight').head()

heightweight = com.load_data('heightweight')
heightweight.head()

# PandasのデータをRに渡す
age = [20, 22, 25, 27, 21, 23, 37, 31, 61, 45, 41, 32]
sex = ['F', 'M', 'M', 'M', 'F', 'M', 'F', 'M', 'F', 'M', 'F', 'M']
df = pd.DataFrame({'age': age, 'sex': sex}); df.head()

# PandaDf2RDf(df, "a")
# r('a')

r_dataframe = com.convert_to_r_dataframe(df)
print(type(r_dataframe))

print(r_dataframe)