Not enough input arguments error

clear;
global Ndo i
q = 1.6e-19; 
Ndo = logspace(14,18);
d= 5.0e-4; 

j = length(Ndo);

for i=1:j
    R(i) = (1)./(q*d.*integral(Rintg, 0, 1)); 
end

loglog(Ndo, R); grid
xlabel('Ndo (cm-3)'); ylabel('R (ohms)'); 

function [y] = Rintg(x)
global Ndo i
Ndb = 1.0e14;
Nd = Ndb + Ndo(i).*exp((-5).*x);

Mnmin = 92; 
Mno = 1268;
Ndref = 1.3e17; 
an = 0.91; 
Mn = Mnmin +Mno./(1+(Nd./Ndref).^an); 
y = Mn.*Nd; 
end

Answer 1

[Walter Roberson]

 R(i) = (1)./(q*d.*integral(@Rintg, 0, 1));

[Mazin Chater]

apologies -- did not know how to close question