First draft with unresolved $ operator error

Error in x$getinverse : $ operator is invalid for atomic vectors